www.gusucode.com > 网域标准通用企业自助建站系统正式版 2009 > 网域标准通用企业自助建站系统正式版 2009.18/网域公司企业网站管理系统ACCESS和SQL正式版/网域公司企业网站管理系统ACCESS正式版/Count/show_Month.asp
<!--#include file="inc_show.asp"--> <% Response.Write replace(Style_Header,"$Title",Site_Name & "-" & Lang_Item_Month) Response.Write Style_Top Response.Write replace(Style_Tips,"$Tips",Lang_Month_Tips) ' 最近31天 set slMonth=new ajgraph slMonth.reArr 11,6 set rslMonth=conn.execute("select top 12 sum(V_View),sum(V_IP),Month(V_DTime+"&U_TZone&"/24),max(V_DTime) from View where Site_ID=" _ & SiteID & " and V_DTime <= #"&dateadd("h",0-CFG_ZoneServer,now())&"# and V_DTime>=#"&dateadd("m",-11,datevalue(dateadd("h",0-CFG_ZoneServer,now())))&"# group by month(V_DTime+"&U_TZone&"/24) order by max(V_DTime) desc") U_now = dateadd("h",U_TZone-CFG_ZoneServer,now()) i=11 j=Year(u_now) & "-" & Month(u_now) & "-1" do while not rslMonth.eof if rslMonth(2)=Month(j) then slMonth.ArrData(i,0)=rslMonth(2) & Lang_Month_Mo slMonth.ArrData(i,1)=rslMonth(2) slMonth.ArrData(i,2)=rslMonth(1) slMonth.ArrData(i,4)=rslMonth(0) rslMonth.movenext else slMonth.ArrData(i,0)=month(j) & Lang_Month_Mo slMonth.ArrData(i,1)=month(j) slMonth.ArrData(i,2)=0 slMonth.ArrData(i,4)=0 end if j=dateadd("m",-1,j) if i=0 then exit do i=i-1 loop slMonth.colwidth=15 slMonth.mousemodel="$0" & vbcrlf & Lang_Visitors & ": $2, $3%" & vbcrlf & Lang_PageView & ": $4, $5%" slMonth.exec ' 绘图 Response.Write replace(Style_MainTop,"$MainName",Lang_Month_Last) if instr(Site_Gra,"D") then Response.Write slMonth.Gra("D") if instr(Site_Gra,"B") then Response.Write slMonth.Gra("B") if instr(Site_Gra,"I") then Response.Write slMonth.Gra("I") if instr(Site_Gra,"V") then Response.Write slMonth.Gra("V") Response.Write "<center><span class=""gra2"" style=""height:10;width:10;border:#000000 1px solid;""></span> " & Lang_Visitors & " " & slMonth.TotalI _ & " <span class=""gra"" style=""height:10;width:10;border:#000000 1px solid;""></span> " & Lang_PageView & " " & slMonth.TotalV & "</center>" Response.Write Style_MainBottom ' 所有月份 set sMonth=new ajgraph sMonth.reArr 11,6 set rsMonth=conn.execute("select sum(V_View),sum(V_IP),Month(V_DTime+"&U_TZone&"/24) from View where Site_ID=" _ & SiteID & " group by Month(V_DTime+"&U_TZone&"/24) order by Month(V_DTime+"&U_TZone&"/24)") for i=0 to 11 if not rsMonth.eof then if rsMonth(2)=i+1 then sMonth.ArrData(i,0)=rsMonth(2) & Lang_Month_Mo sMonth.ArrData(i,1)=rsMonth(2) sMonth.ArrData(i,2)=rsMonth(1) sMonth.ArrData(i,4)=rsMonth(0) rsMonth.movenext else sMonth.ArrData(i,0)=i+1 & Lang_Month_Mo sMonth.ArrData(i,1)=i+1 sMonth.ArrData(i,2)=0 sMonth.ArrData(i,4)=0 end if else sMonth.ArrData(i,0)=i+1 & Lang_Month_Mo sMonth.ArrData(i,1)=i+1 sMonth.ArrData(i,2)=0 sMonth.ArrData(i,4)=0 end if next sMonth.ColWidth=15 sMonth.mousemodel="$0" & vbcrlf & Lang_Visitors & ": $2, $3%" & vbcrlf & Lang_PageView & ": $4, $5%" sMonth.exec ' 绘图 Response.Write replace(Style_MainTop,"$MainName",Lang_Month_All) if instr(Site_Gra,"D") then Response.Write sMonth.Gra("D") if instr(Site_Gra,"B") then Response.Write sMonth.Gra("B") if instr(Site_Gra,"I") then Response.Write sMonth.Gra("I") if instr(Site_Gra,"V") then Response.Write sMonth.Gra("V") Response.Write "<center><span class=""gra2"" style=""height:10;width:10;border:#000000 1px solid;""></span> " & Lang_Visitors & " " & sMonth.TotalI _ & " <span class=""gra"" style=""height:10;width:10;border:#000000 1px solid;""></span> " & Lang_PageView & " " & sMonth.TotalV & "</center>" Response.Write Style_MainBottom ' 竖图和表格 if instr(Site_Gra,"T") or instr(Site_Gra,"d") or instr(Site_Gra,"b") or instr(Site_Gra,"i") or instr(Site_Gra,"v") then ' 竖图和表格 Response.Write replace(Style_MainTop,"$MainName",Lang_Month_Last & "(" & Lang_Tab & ")") & "<table align=""center""><tr>" if instr(Site_Gra,"T") then slMonth.TabHeader = "<tr class=""fonts"" height=""16"" align=""center""><td width=""60""> </td><td width=""40"">"&Lang_Visitors&"</td><td width=""35"">"&Lang_Percent&"</td><td width=""40"">"&Lang_PageView&"</td><td width=""35"">"&Lang_Percent&"</td></tr>" slMonth.TabRow = "<tr height=""16"" align=""right""><td align=""left""> $0</td><td>$2 </td><td>$3% </td><td>$4 </td><td>$5% </td></tr>" Response.Write "<td>" & slMonth.TabGra(5) & "</td>" end if if instr(Site_Gra,"d") or instr(Site_Gra,"b") or instr(Site_Gra,"i") or instr(Site_Gra,"v") then Response.Write "<td width=""10""> </td>" if instr(Site_Gra,"d") then Response.Write "<td>" & slMonth.Gra("d") & "</td>" if instr(Site_Gra,"b") then Response.Write "<td>" & slMonth.Gra("b") & "</td>" if instr(Site_Gra,"i") then Response.Write "<td>" & slMonth.Gra("i") & "</td>" if instr(Site_Gra,"v") then Response.Write "<td>" & slMonth.Gra("v") & "</td>" Response.Write "</tr></table>" & Style_MainBottom ' 竖图和表格 Response.Write replace(Style_MainTop,"$MainName",Lang_Month_All & "(" & Lang_Tab & ")") & "<table align=""center""><tr>" if instr(Site_Gra,"T") then sMonth.TabHeader = "<tr class=""fonts"" height=""16"" align=""center""><td width=""60""> </td><td width=""40"">"&Lang_Visitors&"</td><td width=""35"">"&Lang_Percent&"</td><td width=""40"">"&Lang_PageView&"</td><td width=""35"">"&Lang_Percent&"</td></tr>" sMonth.TabRow = "<tr height=""16"" align=""right""><td align=""left""> $0</td><td>$2 </td><td>$3% </td><td>$4 </td><td>$5% </td></tr>" Response.Write "<td>" & sMonth.TabGra(5) & "</td>" end if if instr(Site_Gra,"d") or instr(Site_Gra,"b") or instr(Site_Gra,"i") or instr(Site_Gra,"v") then Response.Write "<td width=""10""> </td>" if instr(Site_Gra,"d") then Response.Write "<td>" & sMonth.Gra("d") & "</td>" if instr(Site_Gra,"b") then Response.Write "<td>" & sMonth.Gra("b") & "</td>" if instr(Site_Gra,"i") then Response.Write "<td>" & sMonth.Gra("i") & "</td>" if instr(Site_Gra,"v") then Response.Write "<td>" & sMonth.Gra("v") & "</td>" Response.Write "</tr></table>" & Style_MainBottom end if Response.Write Style_Bottom %>